home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1998 May / Software of the Month Club 1998 May.iso / pc / dos / child / theheart / mainmenu.txt < prev    next >
Encoding:
Text File  |  1998-03-03  |  9.6 KB  |  296 lines
  1. \RESET [S:0,0,5 B:0 F:100 C:16 FO:11 A:1 N:1 X:0 E:0]\*
  2. \ON KEY 4096 JUMP QUIT_IT
  3. \READ 081104PW.FON\WAIT LIMIT -1
  4. \NAME #1030=VERSION_NMBR\MOVE "970219" TO VERSION_NMBR
  5. \NAME #13010=INSTALL_TO_DRIVE
  6. \NAME #13020=INSTALL_FROM_DRIVE
  7. \NAME #13030=TOGGLE\MOVE 1 TO TOGGLE
  8. \LINE 0,0,320,180,1,BF
  9. \LINE 5,5,315,175,2,BF
  10. \LINE 10,10,310,175,0,BF\MOVE 0 TO B
  11. \LOCATE 20,10\WIDTH 280 DOTS\OVER 0,A,3
  12. This program will install software
  13. from: THE ANIMATED SOFTWARE COMPANY
  14. on your hard drive.  Please press
  15. <ENTER> for the next screen...
  16. \MOVE 0 TO B\READ ASCOLO04.PIC\SHOW 0,180,16
  17. \X FIRSTLOOP\ROUNDS 1 SPEED ONE_SECOND/30
  18. \SHOW 70,65,1,5\IF TOGGLE=1\SHOW 0,180,17\ELSE\SHOW 0,180,16\ENDIF\MULTIPLY TOGGLE BY -1
  19. \SHOW 70,65,6,10\IF TOGGLE=1\SHOW 0,180,17\ELSE\SHOW 0,180,16\ENDIF\MULTIPLY TOGGLE BY -1
  20. \SHOW 70,65,11,15\IF TOGGLE=1\SHOW 0,180,17\ELSE\SHOW 0,180,16\ENDIF\MULTIPLY TOGGLE BY -1
  21. \IF B=7181\JUMP AFTERFIRST\ENDIF
  22. \IF B=0\JUMP FIRSTLOOP\ENDIF
  23. \END
  24. \X AFTERFIRST
  25. \LOCATE 20,10\WIDTH 280 DOTS\OVER 0,A,1
  26. You can install the software on any
  27. drive.  This install program will make 
  28. a new directory on that drive called 
  29. "\P11" at the root level if the directory
  30. does not exist.  All files will be placed
  31. in the \P11 directory and subdirectories.
  32. \"
  33. \LOCATE 20,87\OVERLAY 0,A,2
  34. Do you want to install
  35. \"THE HEART: THE ENGINE OF LIFE
  36. animated healthy heart program now?
  37. \"
  38. \LOCATE 20,131\OVERLAY 0,A,1
  39. Press <ENTER> to proceed to the next
  40. question, or press <ANY OTHER KEY> to 
  41. stop the installation now.
  42. \"
  43. \CALL WAITRET
  44. \IF B<>7181\JUMP ENDINSTALL\ENDIF
  45. \X NEWTO\ON KEY 18688
  46. \LINE 10,10,310,175,0,BF\MOVE 0 TO B
  47. \LOCATE 20,10\WIDTH 280 DOTS\OVER 0,A,1
  48. \"
  49. What drive do you want to install
  50. the program on?
  51. \"
  52. Drive letter must be "C" through "P".
  53. \"
  54. \"
  55. \"
  56. \"
  57. \"
  58. \"
  59. \"
  60. <ALT-Q>: Quit and not install anything.
  61. \"
  62. \"
  63. \CURSOR 20,15\ROUNDS -1 SPEED ONE_SECOND/10\MARQUE 150,116,175,130,3\QUESTION #2,1
  64. \IF #2="C"\MOVE "C" TO INSTALL_TO_DRIVE\ELSE
  65. \IF #2="D"\MOVE "D" TO INSTALL_TO_DRIVE\ELSE
  66. \IF #2="E"\MOVE "E" TO INSTALL_TO_DRIVE\ELSE
  67. \IF #2="F"\MOVE "F" TO INSTALL_TO_DRIVE\ELSE
  68. \IF #2="G"\MOVE "G" TO INSTALL_TO_DRIVE\ELSE
  69. \IF #2="H"\MOVE "H" TO INSTALL_TO_DRIVE\ELSE
  70. \IF #2="I"\MOVE "I" TO INSTALL_TO_DRIVE\ELSE
  71. \IF #2="J"\MOVE "J" TO INSTALL_TO_DRIVE\ELSE
  72. \IF #2="K"\MOVE "K" TO INSTALL_TO_DRIVE\ELSE
  73. \IF #2="L"\MOVE "L" TO INSTALL_TO_DRIVE\ELSE
  74. \IF #2="M"\MOVE "M" TO INSTALL_TO_DRIVE\ELSE
  75. \IF #2="N"\MOVE "N" TO INSTALL_TO_DRIVE\ELSE
  76. \IF #2="O"\MOVE "O" TO INSTALL_TO_DRIVE\ELSE
  77. \IF #2="P"\MOVE "P" TO INSTALL_TO_DRIVE\ELSE
  78. \LOCATE 20,110\OVERLAY 0,A,2
  79. LETTER NOT VALID!
  80. PLEASE CHOOSE A DIFFERENT DESTINATION!
  81. TRY AGAIN!
  82. \"
  83. \"
  84. \WAIT NOW ONE_SECOND*10
  85. \LINE 10,10,310,175,0,BF
  86. \JUMP NEWTO
  87. \ENDIF
  88. \X NEWFROM
  89. \LOCATE 20,11\WIDTH 280 DOTS\OVER 0,A,1
  90. We will create these directories:
  91. \"
  92. \"
  93. \"
  94. \"
  95. \"
  96. \"
  97. \"
  98. What drive are you installing from?
  99. (Must be "A" through "P")
  100. \"
  101. \"
  102. <ALT-Q>: Exit this program and not install anything.
  103. <PG-UP>: Back up to change "to" drive.
  104. \OVERLAY 0,A,1
  105. \LOCATE 20,20\DISPLAY #2,':\P11'
  106. \*LOCATE 20,30\DISPLAY #2,':\P11\SHEPHERD'
  107. \LOCATE 20,40\DISPLAY #2,':\P11\HEART'
  108. \LOCATE 20,50\DISPLAY #2,':\P11\HEART\CGAHEART'
  109. \LOCATE 20,60\DISPLAY #2,':\P11\HEART\MCGAHART'
  110. \LOCATE 20,70\DISPLAY #2,':\P11\HEART\SVGAHART'
  111. \LOCATE 20,80\DISPLAY #2,':\P11\HEART\HTML'
  112. \LOCATE 20,90\DISPLAY #2,':\P11\HEART\HTML\HRTGUIDE'
  113. \CURSOR 20,16\ROUNDS -1 SPEED ONE_SECOND/10
  114. \ON KEY 18688 JUMP NEWTO
  115. \MARQUE 150,126,175,139,3\QUESTION #3,1
  116. \ON KEY 18688
  117. \IF #3="A"\MOVE "A" TO INSTALL_FROM_DRIVE\ELSE
  118. \IF #3="B"\MOVE "B" TO INSTALL_FROM_DRIVE\ELSE
  119. \IF #3="C"\MOVE "C" TO INSTALL_FROM_DRIVE\ELSE
  120. \IF #3="D"\MOVE "D" TO INSTALL_FROM_DRIVE\ELSE
  121. \IF #3="E"\MOVE "E" TO INSTALL_FROM_DRIVE\ELSE
  122. \IF #3="F"\MOVE "F" TO INSTALL_FROM_DRIVE\ELSE
  123. \IF #3="G"\MOVE "G" TO INSTALL_FROM_DRIVE\ELSE
  124. \IF #3="H"\MOVE "H" TO INSTALL_FROM_DRIVE\ELSE
  125. \IF #3="I"\MOVE "I" TO INSTALL_FROM_DRIVE\ELSE
  126. \IF #3="J"\MOVE "J" TO INSTALL_FROM_DRIVE\ELSE
  127. \IF #3="K"\MOVE "K" TO INSTALL_FROM_DRIVE\ELSE
  128. \IF #3="L"\MOVE "L" TO INSTALL_FROM_DRIVE\ELSE
  129. \IF #3="M"\MOVE "M" TO INSTALL_FROM_DRIVE\ELSE
  130. \IF #3="N"\MOVE "N" TO INSTALL_FROM_DRIVE\ELSE
  131. \IF #3="O"\MOVE "O" TO INSTALL_FROM_DRIVE\ELSE
  132. \IF #3="P"\MOVE "P" TO INSTALL_FROM_DRIVE\ELSE
  133. \LOCATE 20,110\OVERLAY 0,A,2
  134. DRIVE LETTER NOT VALID!
  135. PLEASE CHOOSE A DIFFERENT SOURCE LOCATION!
  136. TRY AGAIN!
  137. \"
  138. \"
  139. \WAIT NOW ONE_SECOND*10
  140. \LINE 10,10,310,175,0,BF
  141. \JUMP NEWFROM
  142. \ENDIF
  143. \*BUILD #3303=INSTALL_FROM_DRIVE,':PKUNZIP.EXE ',INSTALL_FROM_DRIVE,':SHEPHERD.ZIP ',INSTALL_TO_DRIVE,':\ -d'
  144. \BUILD #3304=INSTALL_FROM_DRIVE,':PKUNZIP.EXE ',INSTALL_FROM_DRIVE,':THEHEART.ZIP ',INSTALL_TO_DRIVE,':\ -d'
  145. \BUILD #3305='COPY  ',INSTALL_TO_DRIVE,':\P11\HEART\P11RUN.EXE ',INSTALL_TO_DRIVE,':\P11\HEART\P11REXE.BAK'
  146. \BUILD #3306='COPY  ',INSTALL_FROM_DRIVE,':P11RUN.EXE ',INSTALL_TO_DRIVE,':\P11\HEART\P11RUN.EXE /V'
  147. \LOCATE 20,11\WIDTH 280 DOTS\OVER 0,A,1
  148. All files will be installed in the
  149. following directories:
  150. \"
  151. \"
  152. \"
  153. \"
  154. \"
  155. \"
  156. \"
  157. \"
  158. \LOCATE 20,30\DISPLAY #2,':\P11'
  159. \*LOCATE 20,40\DISPLAY #2,':\P11\SHEPHERD'
  160. \LOCATE 20,50\DISPLAY #2,':\P11\HEART'
  161. \LOCATE 20,60\DISPLAY #2,':\P11\HEART\CGAHEART'
  162. \LOCATE 20,70\DISPLAY #2,':\P11\HEART\MCGAHART'
  163. \LOCATE 20,80\DISPLAY #2,':\P11\HEART\SVGAHART'
  164. \LOCATE 20,90\DISPLAY #2,':\P11\HEART\HTML'
  165. \LOCATE 20,100\DISPLAY #2,':\P11\HEART\HTML\HRTGUIDE'
  166. \LINE 10,110,310,180,0,BF
  167. \LOCATE 20,110\OVER 0,A,1
  168. Files in the above destination
  169. directories will be overwritten.
  170. \"
  171. <ALT-Q>: Exit this program now and
  172.          not install anything.
  173. <PG-UP>: Back up to change "from" drive.
  174. \LOCATE 20,132\DISPLAY 'Installing from ',
  175. \CALL CONVERT_FROM_NMBR
  176. \IF #4<>CURRENT_DRIVE
  177. \DISPLAY 'the ',#3,': drive.'
  178. \ELSE
  179. \IF CURRENT_PATH='\'
  180. \DISPLAY #3,':\'
  181. \ELSE
  182. \DISPLAY #3,':\',CURRENT_PATH,'\'
  183. \ENDIF
  184. \ON KEY 18688 JUMP NEWFROM
  185. \WAIT NOW -1\ON KEY 18688
  186. \IF B<>7181\JUMP ENDINSTALL\ENDIF
  187. \LOCATE 20,11\WIDTH 280 DOTS\OVER 0,A,1
  188. If this is a re-installation you will get
  189. an "Overwrite?(y)" message for each file.
  190. To complete the re-installation you will
  191. need to answer "y" (yes) each time.
  192. \"
  193. \"
  194. \"
  195. \"
  196. \"
  197. \"
  198. \"
  199. \"
  200. Press <ENTER> to begin the actual
  201. installation (file copying) process,
  202. or press <ANY KEY> to exit now.
  203. \LOCATE 20,60\DISPLAY #2,':\P11'
  204. \*LOCATE 20,70\DISPLAY #2,':\P11\SHEPHERD'
  205. \LOCATE 20,80\DISPLAY #2,':\P11\HEART'
  206. \LOCATE 20,90\DISPLAY #2,':\P11\HEART\CGAHEART'
  207. \LOCATE 20,100\DISPLAY #2,':\P11\HEART\MCGAHART'
  208. \LOCATE 20,110\DISPLAY #2,':\P11\HEART\SVGAHART'
  209. \LOCATE 20,120\DISPLAY #2,':\P11\HEART\HTML'
  210. \LOCATE 20,130\DISPLAY #2,':\P11\HEART\HTML\HRTGUIDE'
  211. \CALL WAITRET
  212. \IF B<>7181\JUMP ENDINSTALL\ENDIF
  213. \SCREEN 0,0,6
  214. \*WAIT NOW ONE_SECOND/4\CLEAR SCREEN\CURSOR 0,0\EXEC DOS>(#3303)
  215. \WAIT NOW ONE_SECOND/4\CLEAR SCREEN\CURSOR 0,0\EXEC DOS>(#3304)
  216. \WAIT NOW ONE_SECOND/4\CLEAR SCREEN\CURSOR 0,0\EXEC DOS>(#3305)
  217. \WAIT NOW ONE_SECOND/4\CLEAR SCREEN\CURSOR 0,0\EXEC DOS>(#3306)
  218. \SCREEN 0,0,4\READ 081104PW.FON
  219. \MOVE 0 TO B
  220. \LOCATE 20,10\WIDTH 280 DOTS\OVER 1,A,1 \*note time delay to let "y" repeat keys get used up...
  221. Installation completed!
  222. Press <ANY KEY> to run
  223. THE HEART: THE ENGINE OF LIFE
  224. \"
  225. To run again, run HEART.BAT
  226. from the following directory:
  227. \LOCATE 40,85\DISPLAY #2,':\P11\HEART\'
  228. \LOCATE 20,95
  229. \"
  230. See our README file for instructions on creating a Windows Shortcut to start the program, or if you have any problems using the program.
  231. \"
  232. Use <Alt-Q> now to exit to DOS without running the program.
  233. \* next we wait for you to turn off the "y" key
  234. \IF B=5497 OR B=5465\JUMP WAIT_YOFF\ENDIF
  235. \WAIT NOW -1
  236. \X NOW_RUNIT
  237. \CALL CONVERT_TO_NMBR
  238. \BUILD #3305='\P11\HEART\'
  239. \READ K:/(#3305)/SVGAMODE.TXT
  240. \JUMP OUTINSTALL
  241. \X WAIT_YOFF
  242. \IF B=5497 OR B=5465\JUMP WAIT_YOFF\ENDIF
  243. \JUMP NOW_RUNIT
  244. \END
  245. \X CONVERT_TO_NMBR
  246. \IF INSTALL_TO_DRIVE="A"\MOVE 1 TO K\ELSE
  247. \IF INSTALL_TO_DRIVE="B"\MOVE 2 TO K\ELSE
  248. \IF INSTALL_TO_DRIVE="C"\MOVE 3 TO K\ELSE
  249. \IF INSTALL_TO_DRIVE="D"\MOVE 4 TO K\ELSE
  250. \IF INSTALL_TO_DRIVE="E"\MOVE 5 TO K\ELSE
  251. \IF INSTALL_TO_DRIVE="F"\MOVE 6 TO K\ELSE
  252. \IF INSTALL_TO_DRIVE="G"\MOVE 7 TO K\ELSE
  253. \IF INSTALL_TO_DRIVE="H"\MOVE 8 TO K\ELSE
  254. \IF INSTALL_TO_DRIVE="I"\MOVE 9 TO K\ELSE
  255. \IF INSTALL_TO_DRIVE="J"\MOVE 10 TO K\ELSE
  256. \IF INSTALL_TO_DRIVE="K"\MOVE 11 TO K\ELSE
  257. \IF INSTALL_TO_DRIVE="L"\MOVE 12 TO K\ELSE
  258. \IF INSTALL_TO_DRIVE="M"\MOVE 13 TO K\ELSE
  259. \IF INSTALL_TO_DRIVE="M"\MOVE 14 TO K\ELSE
  260. \IF INSTALL_TO_DRIVE="O"\MOVE 15 TO K\ELSE
  261. \IF INSTALL_TO_DRIVE="P"\MOVE 16 TO K\ELSE
  262. \MOVE 17 TO K\ENDIF
  263. \RETURN
  264. \X CONVERT_FROM_NMBR
  265. \IF INSTALL_FROM_DRIVE="A"\MOVE '1' TO #4\ELSE
  266. \IF INSTALL_FROM_DRIVE="B"\MOVE '2' TO #4\ELSE
  267. \IF INSTALL_FROM_DRIVE="C"\MOVE '3' TO #4\ELSE
  268. \IF INSTALL_FROM_DRIVE="D"\MOVE '4' TO #4\ELSE
  269. \IF INSTALL_FROM_DRIVE="E"\MOVE '5' TO #4\ELSE
  270. \IF INSTALL_FROM_DRIVE="F"\MOVE '6' TO #4\ELSE
  271. \IF INSTALL_FROM_DRIVE="G"\MOVE '7' TO #4\ELSE
  272. \IF INSTALL_FROM_DRIVE="H"\MOVE '8' TO #4\ELSE
  273. \IF INSTALL_FROM_DRIVE="I"\MOVE '9' TO #4\ELSE
  274. \IF INSTALL_FROM_DRIVE="J"\MOVE '10' TO #4\ELSE
  275. \IF INSTALL_FROM_DRIVE="K"\MOVE '11' TO #4\ELSE
  276. \IF INSTALL_FROM_DRIVE="L"\MOVE '12' TO #4\ELSE
  277. \IF INSTALL_FROM_DRIVE="M"\MOVE '13' TO #4\ELSE
  278. \IF INSTALL_FROM_DRIVE="M"\MOVE '14' TO #4\ELSE
  279. \IF INSTALL_FROM_DRIVE="O"\MOVE '15' TO #4\ELSE
  280. \IF INSTALL_FROM_DRIVE="P"\MOVE '16' TO #4\ELSE
  281. \MOVE '17' TO #4\ENDIF
  282. \RETURN
  283. \X ENDINSTALL
  284. \CLEAR SCREEN
  285. \LOCATE 20,20\WIDTH 280 DOTS\OVER 0,A,1
  286. Installation stopped!
  287. \X OUTINSTALL
  288. Press ANY KEY to exit the install program.
  289. \WAIT NOW -1
  290. \X QUIT_IT\END
  291. \X WAITRET\MOVE 0 TO B
  292. \X RETLOOP\IF TOGGLE=1\SHOW 0,180,17\ELSE\SHOW 0,180,16\ENDIF\MULTIPLY TOGGLE BY -1
  293. \IF B=0\WAIT NOW ONE_SECOND/5\JUMP RETLOOP\ENDIF\RETURN
  294. \END OF TEXT
  295.  
  296.